﻿Imports System
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Imports System.Resources
Imports System.Reflection
Imports System.Globalization
Imports System.Threading


Public Class frmEntryWptDescription
    Private rm As New ResourceManager(GetType(frmEntryWptDescription))

    Private SIP As Microsoft.WindowsCE.Forms.InputPanel

    Public Sub New()
        MyBase.New()
        InitializeComponent()
    End Sub

    Private Sub btnRetour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRetour.Click
        ClSIP.HideSIP()
        Me.Hide()
        If frmEntryChoixTypeObs.bTypeSite = "Ponctuel" Then
            frmEntryFin.dEntryStep = 1.1
            frmEntryGPS.Show()
        ElseIf frmEntryChoixTypeObs.bTypeSite = "Suivi" Then
            frmEntryFin.dEntryStep = 1.2
            frmEntryChoixSite.Show()
        End If
    End Sub

    Private Sub btnMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMenu.Click
        ClSIP.HideSIP()
        Me.Hide()
        FormMain.Show()
    End Sub

    Private Sub btnSuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuivant.Click
        frmEntryFin.dEntryStep = 3
        frmAffichProtocol.madescription = TXT_DescriptionZoneEtude.Text
        'frmEntryTaxonQuant.madescription = TXT_DescriptionZoneEtude.Text
        'frmEntryWhat_Density.madescription = TXT_DescriptionZoneEtude.Text  'rajout de protocole Zambra
        'frmEntryWhat_Indice.madescription = TXT_DescriptionZoneEtude.Text
        ' frmEntryWhat_Indiv.madescription = TXT_DescriptionZoneEtude.Text

        frmAffichProtocol.mawptname = TXT_NomWpt.Text
        ' frmEntryTaxonQuant.mawptname = TXT_NomWpt.Text
        'frmEntryWhat_Density.mawptname = TXT_NomWpt.Text 'rajout de protocole Zambra
        'frmEntryWhat_Indice.mawptname = TXT_NomWpt.Text
        'frmEntryWhat_Indiv.mawptname = TXT_NomWpt.Text

        TXT_DescriptionZoneEtude.Text = ""
        TXT_NomWpt.Text = ""
        frmEntryChoixTaxon.Show()
        ClSIP.HideSIP()
        Me.Hide()
    End Sub

    Private Sub Clavier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clavier.Click
        Me.TXT_NomWpt.Focus()
        ClSIP.ChangeState()
    End Sub

    Private Sub PtcShowData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PtcShowData.Click
        frmDataChoix.CreateObservationTable()
        frmDataObsTable.Show()
    End Sub

    Private Sub frmEntryWptDescription_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TXT_NomWpt.Focus()
    End Sub
End Class